这数学老师要是看到了，估计心里是拔凉拔凉滴

点“考研竞赛数学”↑可每天“涨姿势”哦！

看到这个，估计她的数学老师心都凉了

(后附Gif动画图像提取技术和GIF动画制作方法)

来源于网络

GIF动画不能正常播放请看下面图像列表

看到GIF动画，如何将其中的各幅图像一幅一幅的保存为单独的图像文件，又如何将不同的图像整合成一个GIF文件，做成GIF动画效果呢？下面借助数学实验，基于Mathematica软件环境来动手操作一下：

实验环境：Mathematica10

假设以上GIF动画文件为：745.gif，存放在硬盘E：分区根目录下；在E盘有一个名称为test的文件夹。

分解GIF动画文件并将各帧图像保存为单个图像文件：

gif = Import["E:/745.gif"](*导入gif动画文件*)

Do[Export["E:/test/Image" <> ToString[i] <> ".png", gif[[i]]], {i, 1, 

  Length[gif]}](*输出各帧图像文件*)

按下【Shift】+【Enter】组合键，执行计算，得到如下结果。

在E分区的test文件夹中看到如下文件列表：

组合多幅图像为GIF动画文件：

将刚才输出的文件组合为一个GIF动画输出：

image = {};(*定义存放读入的图像文件空列表*)

Do[image = 

  Append[image, Import["E:/test/Image" <> ToString[i] <> ".png"]], {i,

   103}](*读入各帧图像文件到列表变量*)

Export["E:/test/mygif.gif", image](*输出所有图像文件为gif动画*)

执行后得到文件名表达式，表明输出成功！

这样，对于输入的图像还可以进行一些处理，然后再输出为文件！

在Mathematica中，如果输出的对象是列表(花括号括起来的多个对象)，并且输出的文件名为动画或者视频文件，则会自动组合列表对象成一个相应的动画或者视频文件。

好玩的数学实验可以点击“阅读原文”直接进入好玩的数学在线课堂，或者参考下面的推荐列表。

相关推荐

好玩的数学实验：

微信公众号：考研竞赛数学(ID: xwmath) 大学数学公共基础课程分享交流平台！阅完请分享o！

↓↓↓点阅读原文查看所有文章列表